Top 10k strings from Spectrum Graph Plot (1984)(Gemini Marketing).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 h(n),p(n+1
   3 ;"Y VALUE";
   3 ;"X VALUE";
   2 p(n),oy+r*
   2 maxy=miny+g1
   2 g1=maxy-miny:
   2 ;" DATA ANALYSIS "
   2 (maxdx-mindx)*3
   2 (a(n)*10000
   2 "No. of items",n
   1 z$="BUSINESS GRAPHICS"
   1 ym=miny/10
   1 y$="y="+y$
   1 y$="TOTAL PER MONTH"
   1 x$="months4"
   1 x$="months1"
   1 x$="J F M A M J J A S O N D "
   1 tty=tty+y:
   1 tty=tty+a(n)
   1 tty=tty+a(2
   1 ttx=ttx+a(1
   1 sy=uy/(maxy-miny)
   1 sx=ux/(maxx-minx)
   1 my=maxy/10
   1 miny=mind:
   1 minx=mindx:
   1 minx=mindx-1
   1 mind=mindx:
   1 maxx=minx+g1
   1 maxx=maxdx:
   1 maxdx=-mindx:
   1 maxd=maxdx:
   1 k1=k1+a(n):
   1 k$="X "+k$:
   1 k$="CUMULATIVE":
   1 g1=maxx-minx
   1 error noise 
   1 e$(n)=k$(1
   1 VERTICAL TEXT
   1 LINE&POINT
   1 HISTOGRAM 
   1 FINANCIAL AXIS
   1 D Swain. Hillrise Software May 1983
   1 ;"X Value","Y Value"
   1 ;"Version 9/84":
   1 ;"TO ALTER PRESENTATION"
   1 ;"TIC INTERVAL";
   1 ;"Spectrum Graph plot":
   1 ;"STOP THE TAPE":
   1 ;"STOP THE TAPE"
   1 ;"SCALE FACTOR";
   1 ;"SAVE DATA"
   1 ;"Position tape,switch leads, Play":
   1 ;"POSITION TAPE AND PLAY"
   1 ;"PLEASE BE PATIENT!"
   1 ;"Item","Value"
   1 ;"CHANGE VALUES":
   1 ;"AXIS START  ";
   1 ;"AXIS END    ";
   1 ;"7. End changes "
   1 ;"6. X Origin    ";
   1 ;"6. FUNCTION
   1 ;"5. X,Y LINE PLOT "
   1 ;"5. X Axis Max. ";
   1 ;"4. X,Y POINT PLOT"
   1 ;"4. X Axis Min. ";
   1 ;"3. Y Origin    ";
   1 ;"3. PIE CHART
   1 ;"2. Y Axis Max. ";
   1 ;"2. LINE GRAPH    "
   1 ;"1. Y Axis Min. ";
   1 ;"1. HISTOGRAM
   1 ;" THE TAPE
   1 ;" SCALING "
   1 ;" GRAPH ANALYSIS "
   1 1 DIM LINE GRAPH
   1 +(oy+(r-16
   1 +(ox+(r-16
   1 *(maxdx-mindx)/ux
   1 )=(p(n)+p(n-1
   1 )*(my-ym)/5
   1 (1000.0001
   1 ((y-miny)*sy+0.5
   1 ((x-minx)*sx+.5
   1 "press enter ";k$
   1 "name of data array? ";k$
   1 "Y Value = ";a(2
   1 "X Value = ";a(1
   1 "Verify y/n? ";g$
   1 "Value? ";a(n)
   1 "Use same data? ";s$
   1 "Title for graph? ";t$
   1 "Start from item ";j
   1 "Select 1-7 ";k
   1 "Select 1-7 ";c
   1 "Save Data? ";k$
   1 "Print Data ? ";k$
   1 "Press enter to return to menu";y$
   1 "Press enter to continue";k$
   1 "Press enter ";k$
   1 "Please complete the function
   1 "Number of data items ";q,,,"Please select range of items to be plotted"
   1 "No. of data items? ";k
   1 "New value ";v
   1 "Name of file ";k$
   1 "Minimum value of x =";mindx
   1 "Microdrive or Cassette (m/c)";m$:
   1 "Maximum value of x =";maxdx
   1 "Is this OK? ";k$
   1 "Is data on file? ";r$
   1 "Explode item "+
   1 "End at item ";i
   1 "Describe y axis ";y$
   1 "Describe x axis ";x$
   1 "Cumulative y/n? ";k$
   1 "Copy Screen to Printer? ";k$
   1  1984 Gemini Marketing Ltd.":